(define out (open-output-file "output.txt"))
(display "Hello, Scheme!" out)
(close-output-port out)

(define in (open-input-file "output.txt"))
(display "File content: ")
(display (read-contents in))
(close-input-port in)
(newline)
